home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip 1998 January
/
CHIP Turkiye Ocak 1998.iso
/
ARACLAR
/
TF95140
/
TEKFCT95.EXE
/
0
/
RCDATA
/
TLOGOPTIONSFORM
/
TLOGOPTIONSFORM.txt
Wrap
Text File
|
1997-07-12
|
9KB
|
366 lines
object LogOptionsForm: TLogOptionsForm
Left = 451
Top = 108
BorderStyle = bsDialog
Caption = 'TechFacts 95 Logging Options Form'
ClientHeight = 361
ClientWidth = 485
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Position = poScreenCenter
OnClose = FormClose
OnCloseQuery = FormCloseQuery
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object OKBtn: TButton
Left = 324
Top = 330
Width = 75
Height = 25
Caption = '&Ok'
Default = True
ModalResult = 1
TabOrder = 0
OnClick = OKBtnClick
end
object CancelBtn: TButton
Left = 404
Top = 330
Width = 75
Height = 25
Cancel = True
Caption = '&Cancel'
ModalResult = 2
TabOrder = 1
OnClick = CancelBtnClick
end
object PageControl1: TPageControl
Left = 8
Top = 8
Width = 473
Height = 313
ActivePage = TabSheet2
TabOrder = 2
object TabSheet1: TTabSheet
Caption = '&Options'
object RadioGroup1: TRadioGroup
Left = 0
Top = 0
Width = 465
Height = 33
Align = alTop
Caption = 'Logging is'
Columns = 2
ItemIndex = 0
Items.Strings = (
'Not Active'
'Active')
TabOrder = 0
end
object RadioGroup2: TRadioGroup
Left = 0
Top = 33
Width = 465
Height = 56
Align = alTop
Caption = 'Logging Schema'
Columns = 2
ItemIndex = 0
Items.Strings = (
'Using Timer'
'When Processes Start or End'
'On Startup Only')
TabOrder = 1
OnClick = RadioGroup2Click
end
object GroupBox3: TGroupBox
Left = 0
Top = 137
Width = 465
Height = 100
Align = alTop
Caption = 'What to log'
TabOrder = 2
object CheckBox3: TCheckBox
Left = 8
Top = 16
Width = 161
Height = 17
Caption = 'List of Processes'
TabOrder = 0
end
object CheckBox4: TCheckBox
Left = 8
Top = 32
Width = 169
Height = 17
Caption = 'GDI Resource Level'
TabOrder = 1
end
object CheckBox5: TCheckBox
Left = 8
Top = 48
Width = 161
Height = 17
Caption = 'USER Resource Level'
TabOrder = 2
end
object CheckBox6: TCheckBox
Left = 8
Top = 64
Width = 161
Height = 17
Caption = 'Memory Level'
TabOrder = 3
end
object CheckBox7: TCheckBox
Left = 8
Top = 80
Width = 185
Height = 17
Caption = 'Performance Data'
TabOrder = 4
end
object CheckBox8: TCheckBox
Left = 240
Top = 16
Width = 193
Height = 17
Caption = 'Local Disk Levels'
TabOrder = 5
end
object CheckBox9: TCheckBox
Left = 240
Top = 32
Width = 193
Height = 17
Caption = 'Remote Disk Levels'
TabOrder = 6
end
object CheckBox13: TCheckBox
Left = 240
Top = 48
Width = 201
Height = 17
Caption = 'Process Start - Process\DLL Details'
TabOrder = 7
end
object CheckBox14: TCheckBox
Left = 240
Top = 64
Width = 185
Height = 17
Caption = 'Process Heap Usage'
TabOrder = 8
end
end
object GroupBox4: TGroupBox
Left = 0
Top = 89
Width = 465
Height = 48
Align = alTop
Caption = 'Timed Log Settings'
TabOrder = 3
object Label1: TLabel
Left = 16
Top = 16
Width = 73
Height = 17
Caption = 'Log every:'
end
object Label3: TLabel
Left = 160
Top = 16
Width = 81
Height = 13
Caption = 'minutes'
end
object SpinEdit1: TSpinEdit
Left = 100
Top = 14
Width = 49
Height = 22
MaxValue = 1800
MinValue = 1
TabOrder = 0
Value = 60
end
end
end
object TabSheet2: TTabSheet
Caption = '&Log File'
object GroupBox2: TGroupBox
Left = 0
Top = 0
Width = 465
Height = 143
Align = alTop
Caption = 'Log File'
TabOrder = 0
object Label2: TLabel
Left = 8
Top = 16
Width = 89
Height = 17
Caption = 'File Location:'
end
object ExplorerButton1: TExplorerButton
Left = 434
Top = 13
Width = 25
Height = 25
Hint = 'Browse for a file location'
Bitmap.Data = {
F6000000424DF600000000000000760000002800000010000000100000000100
04000000000080000000CE0E0000C40E00000000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
5555555555555555555555555555555555555555555555555555550000000000
5555500B8B8B8B8B055550F0B8B8B8B8B05550BF0B8B8B8B8B0550FBF0000000
000550BFBFBFBFB0555550FBFBFBFBF0555550BFBFBF00055555550BFBF05555
5555557000075555555555555555555555555555555555555555}
Caption = 'ExplorerButton'
Options = [boMonoDisplay, boIconOnly, boPopupMark, boShowBevel]
OnClick = ExplorerButton1Click
ParentShowHint = False
ShowHint = True
end
object Label5: TLabel
Left = 296
Top = 52
Width = 12
Height = 13
Caption = 'kb'
end
object Edit1: TEdit
Left = 92
Top = 13
Width = 337
Height = 21
TabOrder = 0
end
object CheckBox15: TCheckBox
Left = 8
Top = 50
Width = 177
Height = 17
Caption = 'Check maximum log file size:'
TabOrder = 1
end
object SpinEdit2: TSpinEdit
Left = 192
Top = 49
Width = 97
Height = 22
Increment = 10
MaxValue = 1000000
MinValue = 0
TabOrder = 2
Value = 100
end
object RadioGroup3: TRadioGroup
Left = 8
Top = 80
Width = 449
Height = 57
Caption = 'When maximum file size exceeded'
ItemIndex = 0
Items.Strings = (
'Delete log file - new file will be created automatically'
'Create new log file with incremented extension, ie: 001, 002')
TabOrder = 3
end
end
object GroupBox1: TGroupBox
Left = 0
Top = 143
Width = 465
Height = 130
Align = alTop
Caption = 'Log Style'
TabOrder = 1
object Label4: TLabel
Left = 8
Top = 20
Width = 47
Height = 13
Caption = 'Log Style:'
end
object RadioButton1: TRadioButton
Left = 72
Top = 18
Width = 113
Height = 17
Caption = 'Standard Log'
Checked = True
TabOrder = 0
TabStop = True
OnClick = CheckStyles
end
object RadioButton2: TRadioButton
Left = 208
Top = 18
Width = 113
Height = 17
Caption = 'Report Style'
TabOrder = 1
OnClick = CheckStyles
end
object CheckBox1: TCheckBox
Left = 8
Top = 40
Width = 201
Height = 17
Caption = 'Seperate fields w\commas'
TabOrder = 2
end
object CheckBox11: TCheckBox
Left = 8
Top = 56
Width = 193
Height = 17
Caption = 'Add Field Descriptors'
State = cbChecked
TabOrder = 3
end
object CheckBox10: TCheckBox
Left = 8
Top = 73
Width = 217
Height = 17
Caption = 'Each log field on a seperate log line'
State = cbChecked
TabOrder = 4
end
object CheckBox12: TCheckBox
Left = 240
Top = 56
Width = 217
Height = 17
Caption = 'Clear the log file before adding entries'
TabOrder = 5
end
object CheckBox2: TCheckBox
Left = 240
Top = 40
Width = 161
Height = 17
Caption = 'Include user id'
State = cbChecked
TabOrder = 6
end
end
end
end
object OpenFile1: TOpenDialog
FileEditStyle = fsEdit
Filter = 'log files|*.log|ini files|*.ini|text files|*.txt|all files|*.*'
Left = 280
Top = 336
end
end
